home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / powerd / lib / powerd_lib.lha / PowerD / RealStr2.d < prev    next >
Encoding:
Text File  |  2000-02-20  |  368 b   |  27 lines
  1. OPT    OBJECT,NOEXE
  2.  
  3. PROC RealStr(str:PTR TO CHAR,num:DOUBLE,digits=1)(PTR TO CHAR)
  4.     DEFD    d,t,y
  5.     DEFL    e,pos=0,x
  6.     d:=FAbs(num)
  7.     e:=GetExp(d)
  8.     t:=TenToX(e)
  9.     WHILE e>0
  10.         x:=y:=d/t
  11.         str[pos++]:="0"+x
  12.         d:-=x
  13.         t:/=10
  14.         e--
  15.     ENDWHILE
  16.     IF digits
  17.         str[pos++]:="."
  18.         WHILE digist>0
  19.             x:=y:=d/t
  20.             str[pos++]:="0"+x
  21.             d:-=x
  22.             t:/=10
  23.             digits--
  24.         ENDWHILE
  25.     ENDIF
  26. ENDPROC str
  27.